include(/mnt/Datos/Facultad/Latex/circuit_macros/pgf.m4)
include(/mnt/Datos/Facultad/Latex/circuit_macros/libcct.m4)
   
.PS 
cct_init
  
elen = 0.75
Origin: Here

		resistor(down_ elen); llabel(,R_{B1},)
		{
			line right_ 0.4
			TBJ:bi_tr(up_ dimen_) with .B at Here; 
		}
		resistor(down_ elen); llabel(,R_{B2},)
		line right_ 0.73
		{
			line down_ 0.2
			dot; llabel(,-V_{SS},)
		}
		resistor(up_ to TBJ.E); rlabel(,R_E,)
		line up_ from TBJ.C to (TBJ.C.x, TBJ.C.y + 0.5)
		{
			line up_ 0.2
			dot; llabel(,V_{DD},)
		}
		{
			dot(at TBJ.E); rlabel(,V_E,)
		}
		line left_ to Origin
.PE


